home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / watanabe / menu / clear.bas next >
BASIC Source File  |  1995-01-22  |  2KB  |  49 lines
  1. 100 '*********************************************************************
  2. 110 '*      　 　　     プログラム開発支援シリーズ第６段　　　　　　　　 *
  3. 120 '*                   ＢＡＳＩＣ設定初期化プログラム                  *
  4. 130 '*                                 1994年10月30日（日）  by 渡辺良一 *
  5. 140 '*********************************************************************
  6. 150 '\\\\\グラフィック初期化\\\\\\\\\\\\\\\
  7. 160   SCREEN 0:SCREEN@0
  8. 170   WINDOW(0,0)-(639,479)
  9. 180   VIEW  (0,0)-(639,479)
  10. 190 '
  11. 200 '\\\\\パレット初期化\\\\\\\\\\\\\\\\\\\
  12. 210   FOR I=0 TO 15
  13. 220     READ G,R,B
  14. 230     PALETTE I,[G,R,B]
  15. 240   NEXT
  16. 250    DATA &h00,&h00,&h00, &h00,&h00,&h80, &h00,&h80,&h00, &h00,&h80,&h80
  17. 260    DATA &h80,&h00,&h00, &h80,&h00,&h80, &h80,&h80,&h00, &h80,&h80,&h80
  18. 270    DATA &h40,&h40,&h40, &h00,&H00,&hf0, &h00,&hf0,&h00, &h00,&hf0,&Hf0
  19. 280    DATA &hf0,&h00,&h00, &hf0,&H00,&hf0, &hf0,&hf0,&h00, &hf0,&hf0,&Hf0
  20. 290 '
  21. 300 '\\\\\テキスト画面初期化\\\\\\\\\\\\\\\
  22. 310   WIDTH 80,25:CONSOLE 0,24,2
  23. 320 '
  24. 330 '\\\\\スプライト初期化\\\\\\\\\\\\\\\\\
  25. 340   DEF SPRITE 99,0
  26. 350 '
  27. 360 '\\\\\画面初期化\\\\\\\\\\\\\\\\\\\\\\\
  28. 370   COLOR 7,%0,%15,0:CLS 'COLOR 7,0,7,0と同じ
  29. 380 '
  30. 390 '\\\\\音楽関連初期化\\\\\\\\\\\\\\\\\\\
  31. 400   PLAY OFF '演奏終了
  32. 410   CD STOP  'CD停止
  33. 420   BGM 1    '並立動作
  34. 430   LOAD@    '音源初期化
  35. 440 '
  36. 450 '\\\\\ＰＦキー初期化\\\\\\\\\\\\\\\\\\\
  37. 460   FOR I=1 TO 10:KEY I,"":NEXT
  38. 470 '
  39. 480 '\\\\\フォント初期化\\\\\\\\\\\\\\\\\\\
  40. 490   DEF FONT"システム   16ﾄﾞｯﾄ"
  41. 500 '
  42. 510 '\\\\\BEEP音初期化\\\\\\\\\\\\\\\\\\\\\
  43. 520   BEEP 363523,20,1200
  44. 530 '
  45. 540 '\\\\\メモリ初期化\\\\\\\\\\\\\\\\\\\\\
  46. 550   CLEAR '変数消去（変数に使われているメモリを開放）
  47. 560   CLEAR,,512,FRE(4)/3,0,0
  48. 570   END 'new
  49.